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PLANO DA OBRA 

"INPUT" e uma obra editada em fasciculos semanais, ecada 
conjunto de 15 fascicules compoe um volume. Acapa paraenca- 
dernagao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLECAO 

Exemplares atrasados, ate seis meses apos o eneerramento dacolegSo, pode- 
rao ser comprados, a pretos atualizados, da seguinte forma: 1. PESSOAL- 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
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comendana agenda do Correio. 3. POR TELEX — Utilize on? (011)33 670 
DNAP. 

Em Portugal, OS pedidosdevem ser feitos a Distribuidora Jardim dePublica- 
Soes, Lda. — Qta.Pau Varais, AzinhagadeFetais — 2 685,Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Aten^o: Apos seis meses do eneerramento da colecao, os pedidos serao aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre titulo e/ou autor da obra, al^m 
do nilmero da edii;ao. 
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DE 




ESSAO 




Amplie a capacidade musical de seu 
micro reduzindo os dados necessaries 
I h execupao de uma melodia. 
As t^cnicas apresentadas aplicam-se I 
compressao de diferentes tipos de dados. 



Tocar musica utilizando o computa- 
dor e uma experiencia fascinante, prin- 
cipalmente quando se e o autor da pe- 
ca. Existem, porem, vdrias dificuldades 
a superar, e uma de[as e a quantidade 
de dados que um prograraa requer para 
executar determinada melodia — mais 
de uma tela cheia de ntimeros, na maio- 
ria dos casos. Alem de serem dificeis de 
digitar, esses dados ocupam muito es- 
pago na memdria. Neste artigo, voce ve- 



tA como comprimir os dados de suas 
melodias dentro dos programas BASIC, 
de maneira que eles tomem o menor es- 
papo possivel, liberando parte da memd- 
ria RAM para outro uso, 

A aplicacao das tecnicas de compres- 
sao de dados nao se restringe, natural- 
mente, aos programas destinados a exe- 
cugao de musica. Estende-se a dados de 
todo tipo, desde que sejam repetitivos 
e limitados a certos valores. 



UMA NOVA MELODIA 



Seja qual for seu estilo, as melodias 
que computador toca seguem um cer- 
to padrao que permite sua compressao. 
Tomemos como exemplo uma musica 
simples, com um total de doze compas- 



IPROGRAMACAO DE UMA MELODIA 



COMO COMPRIMIR OS DADOS 



DIVISAO DA MUSICA 



ECONOMIA DE NOTAS 



MODIFICACAO DO ANDAMENTO 



SOS. Para executd-la, precisaremos escre- 
ver um programa em BASIC contendo 
um determinado numero de linhas DA- 
TA, como o apresentado a seguir: 



10 LET T-.2 

20 RESTORE 100 

30 READ D 

50 IF D-2S5 THEN GOTO 20 

60 SOUND T,D 

7 GOTO 30 
100 DATA 12,12,15,16,19,19,21, 
19 

110 DATA 12,24,22,21,19.17.16, 
14 

120 DATA 12,12.15,16,19,19,21. 
19 

130 DATA 12,24,22,21.19,17,16, 
14 
140 DATA 17,17,20,21,24.24,26. 



WCRAMACAO 



24 

ISO DATA 17,24,22,21,19,17.16. 

14 

160 DATA 12,12,15,16,19.19.21. 

19 

170 DATA 12.24,22,21,19,17,16, 

14 

160 DATA 19,19,23,24,26,26,24, 

23 

190 DATA 17,17,20.21.24,24.20, 

21 

200 DATA 12,12.15.16,19.19.21. 

19 

210 DATA 12,24,22.21,19,17,16, 

14 

2 20 DATA 255 



m 



10 SOUND 7, 56; SOUND 8,15 

20 SOUND 1,0: RESTORE 

30 BEAD D 

50 IF D=25S THEN 20 

60 SOUND CD 

70 FOR T=0 TO 100 : NEXT: GOTO 30 

100 DATA 213,213.179.169,142,14 

2.126,142 

110 DATA 213,106,119,126.142,13 

9,169,189 

120 DATA 213,213,179,169.142,14 

2.126,142 

130 DATA 213, 106, 119, 126. 142, ]5 

9,169,189 

140 DATA 159,159,134,126,106.10 

6.94.106 

150 DATA 159,106,119.126,142,15 



9.169,189 

160 DATA 213,213,179.169,142,14 

2,126,142 

170 DATA 213,106,119,126,142,15 

9,169,189 

lao DATA 142,142,112,106.94,94, 

106.112 

190 DATA 159,159,134,126,106,10 

6,134,126 

200 DATA 213.213.179,169.142,14 

2,126.142 

210 DATA 213,106,1X9.126,142,15 

9.169,189 

220 DATA 255' 



HIE] 



10 RESTORE :T - 80 

20 FOB I = TO 22: READ A: PO 

KE BOO + I. A: NEXT 

30 DATA 160,0,174,133,3,238,4 

8,192.136,208,5,206,132,3.240,6 

,202,208,245,76,34,3,96 

40 HEAD D 

50 IF D = 255 THEN 10 

60 POKE 900, T: POKE 901, D: CAL 

L 800 

70 GOTO 40 

100 DATA 47,47,40,37,31,31,26 

.31 

110 DATA 47.23,26,28,31,35,37 

,42 

120 DATA 47,47.40,37,31,31,28 

.31 

130 DATA 47,23,26,28,31,35,37 

,42 



140 


DATA 


,23 




150 


DATA 


,42 




160 


DATA 


8,31 




170 


DATA 


7,42 




160 


DATA 


.25 




190 


DATA 


,28 




200 


DATA 


8,31 




210 


DATA 


7,42 




220 


DATA 



35,35,29.28,23,23,21 

35,23,26,28,31,35,37 

47.47,40.37,31,31,2 

47,23,26,28,31,35.3 

31,31,25,23,21.21,23 

35,35,29,28,23,23,29 

47,47,40.37.31.31,2 

47,23,26,28,31,35.3 

255 



D 



10 T-3 

20 RESTORE 

30 READ D 

50 IF D-255 THEN 20 

60 SOUND D,T 

70 GOTO 30 

100 DATA 175.175,189.193.204.20 

4,210,204 

110 DATA 175.218,213,210,204.19 

7.193,185 

120 DATA 175.175,189,193,204,20 

4,210,204 

130 DATA 175,218.213.210.204.19 

7.193.185 

140 DATA 197,197,207,210,218,21 

8,223,218 




02 



150 DATA 197.218,213.210,204,19 

7.193.165 

160 DATA 175,175,189,193.204,20 

4.210.204 

170 DATA 175,218,213,210,204.19 

7,193,185 

180 DATA 204,204,216,216,223.22 

3,216,216 

190 DATA 197,197,207,210,218.21 

8.207.210 

200 DATA 175,175,189,193,204,20 

4,210.204 

210 DATA 175,218.213.210,204,19 

7,193,185 

220 DATA 255 

Se quiserem, os usuirios do TK-20O0 
poderao modificar este e os proximos 
programas a fim de usar o comando 
SOOND. Mas isto nao e necessirio: tal 
como estao, os programas funcionam 
tao bem em seu micro quanto no Apple. 

Em gerai, o MSX requer o dobro dos 
dados utilizados pelos outros micros, ja 
que emprega dois bytes para definir a 
nota musical — o byte mais significati- 
vo e o menos significativo. A meEodia 
que escolhemos, no entanto, i tao sim- 
ples que o byte mais significativo de to- 
das as suas notas e igual a 0, o que nos 
permite especificar so os bytes menos 
significativos. 

A variavel T estabelece urn fator de 
tempo para a velocidade da miisica. A 



Itnha 20 acerta o apontador das notas 
no inicio dos dados. O la^o FOR ... 
NEXT entre as linhas 30 e 70 le os valo- 
res das notas — os numeros nas linhas 
DATA — , colocando-os dentro do co- 
mando musical apropriado na tinha 60. 
A linha 50 detecta o fim da melodia, 
marcado por um valor arbitrario — 255. 

Se quisermos introduzir pausas no 
meio da melodia, podemos definir um 
outro valor arbitrario, 254 por exemplo, 
e incluir um teste para esse valor na li- 
nha 40, Ao surgir uma pausa no meio 
dos dados, a linha 40 desviaria o pro- 
grama para uma outra linha. Esta pro- 
duziria um cerio atraso, voltando depois 
para a linha 30 a fim de continuar a exe- 
cu$ao da musica. 

Tal como o programa esta, as notas 
sao fornecidas aos comandos musicals 
do BASIC e emitidas conforme vao sen- 
do lidas nas linhas DATA. 

Embora esse processo funcione a 
contento. cle exige um numero muito 
grande de dados, mesmo para uma me- 
lodia curta. Alem de dificultar a digita- 
tao e tomar espa^o na mem6ria, o ex- 
cesso de dados traz ainda um outro in- 
conveniente: enquanto a miisica estS 
sendo lida e processada, o compufador 
nao pode se ocupar com outra tarefa. 

Alguns micros, como o MSX, solu- 
cionam parcialmente esse problema com 



um buffer musical, capaz de guardar a!- 
gumas notas. Se houver espai;o no buf- 
fer para o som que esti sendo emitido, 
o computador e liberado para outras ati- 
vidades. Porem, havendo mais notas a 
processar, o micro fica novamente com- 
prometido. Seja como for, o buffer nao 
alivia o trabalho de digita^ao das linhas 
DATA nem reduz o espafo por clas ocu- 
pado na menioria. 

Para contornar efetivamente esses 
problemas, o usuario s6 tem uma alter- 
nativa: encontrar um meio de compri- 
mir OS dados, tornando mais facil seu 
processamento e economizando espa?o. 



MAOS A OBRA 



A compressao de dados e viabiliza- 
da pela existencia, em uma melodia, de 
padroes que se repetem. Quanto mais 
padrfies pudermos reconhecer, maior se- 
rd o grau de compressao. 

Para identificar esses padroes de da- 
dos, convem, em primeiro lugar. ouvir 
ou tocar a melodia em um instrumen- 
to, temando distinguir as passagens que 
se repetem. Depois, escreva a musica em 
um papel, preocupando-se apenas com 
a freqiiencia das notas — ignore pautas, 
claves, compassos etc. 

Nao ha dificuldade em escrever, em 



GXAmCAOB, 



seqiiencia, as letras equivaJentes ks no- 
tas, se estas tcm sempre a mesma dura- 
i;3o. Mas, e se as notas tiverem duracao 
variada? Nesse caso, o trabaJho torna- 
se um pouco mais complicado, pois pre- 
cisaremos levar em conta, alem da to- 
nalidade, o tempo de cada uma — o que 
dupUcar^ o volume de dados. 

Outra saida consiste em repetir as no- 
tas de maior dura?ao. Se, per exemplo, 
uma nota dura duas batidas, ela seri re- 
gistrada duas vezes. Esta foi a alterna- 
tiva que utilizamos ao transcrever a me- 
lodia do programa anterior. Obtivemos 
a seguinte tabela: 









TABELA 1 
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Se vocS examinar a tabela 1 com 
aten?ao, vera que a melodia se compoe 
de apenas cinco seqiiencias, ou minime- 
lodias — identificadas como T1,T2, 
etc., como mostra a tabela 2 — , em sua 
maioria tocadas repetidas vezes. 







TABELA 2 






Tl= G 
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A# B D D 
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T2=G2 
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E D C B 


A 




T3= C 
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Podemos agora utilizar uma t^ctiica 
de compress5o: as minimelodias nao se- 
rao digitadas sempre que aparecem na 
miisica completa, mas uma unica vez, 
junto a cbdigos que especificam a se- 



qiiencia cm que devem ser locadas. Co- 
mo costuma ocorrer quando comprimi- 
mos dados, o programa que le a melo- 
dia assim digitada ^ maior que a an- 
terior: 



10 LET C-0: LET T» . 2 

20 RESTORE 100 

30 FOR ^f-l TO C+lr REM) P: 

NEXT N 

40 IF P-0 THEN GOTO 10 

50 RESTORE P 

60 READ N 

70 IF N>=255 THEN LET C-C+1 : 
GOTO 20 

80 SOUND T,N 

90 GOTO 60 
100 DATA 110.120.110.120,130, 
120,110,120,140,150,110,120.0 
110 DATA 12,12,15,16,19,19.21, 
19 12 255 

120 DATA 24,22,21,19,17,16,14. 
255 

130 DATA 17,17,20,21,24,24,26, 
24.17,255 

140 DATA 19.19.23,24,26,26,24, 
23,255 

150 DATA 17,17.20,21,24,24,20, 
21,255 



m 



1 SOUND 7, 56: SOUND 8,15 

2 SOUND 1,0 
10 C-0:T-120 
20 RESTORE 

27 FOfi2-lT0C+l:EEADP:NEXT 

28 IFP-OTHENIO 

29 RESTORE: FORM- 1T0P:HEADWW:NEX 

T 

30 READK:IFK-2S5THENC-C+1:GOT02 



50 SOUND 0,K 

60 F0H2-1T0T:NEXT 

70 GOTO30 

100 DATA 13,23,13.23.31.23.13,2 

3,41,50.13.23,0 

110 DATA 213.213.179,169,142,14 

2.126.142,213,255 

120 DATA 106.119,126,142,159,16 

9,189.265 

130 DATA 159.159,134,126,106,10 

6,94,106,159.255 

140 DATA 142.142.112,106,94.94, 

106.112.255 

150 DATA 159,159,134.126.106,10 

6,134.126,255 

10013 .23,13,23,0 



HIE] 



1 FOR I - TO 22: HEAD A: POK 
E 800 *■ I, A: NEXT 

2 DATA 160.0,174.133,3,238,4 
8,192,136.208.5.206,132,3,240.6 
,202,208.245,76.34,3.96 

10 C - 0:T - 100 

20 RESTORE 

27 FOR Z - 1 TO C + 24: READ P 

. iigXT 

2B IF F - THEN 10 



29 RESTORE : FOR W - 1 TO P + 
23: HEAD WW: NEXT 

30 BEAD K: IF K - 255 THEN C - 
C + 1: GOTO 20 

40 POKE 900, T: POKE 901. K 

50 CALL 800 

70 GOTO 30 

100 DATA 13,23,13.23,31.23,13 

,23,41,50,13.23,0 

110 DATA 47,47.40,37,31.31,2 

8,31,47,255 

120 DATA 23.26.28,31,35,37,4 

2.255 

130 DATA 35,35,29,28.23,23, 

21.23,35,255 

140 DATA 31.31,25,23,21,21.2 

3 25 255 

150 'data 35.35,29.28.23,23.2 

9,28.255 

220 DATA 255 

Q 

1 DIM A(S,1):F0H K-1 TO 13:READ 
P; NEXT: GOTO 3 

2 READ P:IF P0255 THEN 2 

3 N-N+1:A{N,0)-P££KC51) :AtN.l)- 
PEEK(52) :IF N<5 THEN 2 

10 C-0:T-3 i 

20 RESTORE 'j 

30 FOR N-1 TO C+1:READ P:NEXT 

40 IF P-0 THEN 10 

50 POKE 51,ACP,0} ;POKE 52,A(P,1 

) 

60 READ N 

70 IF N-255 THEN C-C+1 :0OTO 20 

BO SOtftID N.T 

90 GOTO 60 

100 DATA 1,2,1,2,3,2.1,2.4.5,1. 

2,0 

110 DATA 175,175,189.193.204.20 

4,210.204,175,255 | 

120 DATA 218.213,210.204.197,19 ; 

3 185 255 * 

130 DATA 197,197,207.210.218.21 

B. 223, 218, 197. 255 

140 DATA 204,204,216,218,223,22 

3 ^iQ 716 y^^ I 

150 DATA 197,197,207.210.218.21 

8,207.210,255 . 

Note que o niimero de dados neces- 
sArios para a execu<;ao da melodia foi 
muito reduzido — no Spectrum, por i 
exemplo, diminuiu de 97 para 59 bytes. 
Rodando o programa, voce veri que a 
miisica e exatamente a mesma do pro- 
grama anterior. Os usuarios do Spec- . 
trum vao estranhar o andamento da me- 
lodia, mas logo terao uma explicafao. 

Os dados que definem as minimelo- 
dias estao nas linhas 1 10 a 150 e a se- 
quSncia principal — isto i, a ordem em 
que as minimelodias sao executadas — 
fica na iinha 100. O la(?o na linha 30 
acerta o valor de P (varidvel de traba- 
Iho utilizada na leitura das finhas DA- 
TA) de acordo com a seqiiencia princi- 
pal, definindo a minimefbdia a ser lo- 
cada. Na realidade, a seqiiencia princi- 



pal i uma lista de numeros — ou de va- 
lores que, combihados com uma cons- 
tante, resultara em niimeros de linha — 
correspondentes As linhas onde se encon- 
tram as minimelodtas. 

Identificada a minimelodia a ser exe- 
cutada, a linha 50 caicula o numero da 
linha DATA correspondente. So o Spec- 
trum permite o uso da insirufao RES- 
TORE durante a leitura do bloco de da- 
dos. O Apple e MSX emprcgam la<;os 
FOR... NEXT e o TRS-Color tem os 
pontos de entrada gravados na linha 3. 

A linha 10 utiliza a variavel C para 
a contagem do niimero de minimelodias 
ja tocadas. A durafao de cada nota e 
controlada por T, que tamb^m determi- 
na o andamento da miisica. A linha 40 
(28, no Apple e no MSX) verifica a lil- 
tima minimelodia, que e marcada com 
na linha 100. O numero 255 assinala 
o final de cada minimelodia. Ao 
encontra-lo, o computador volta a se- 
qiiencia principal para saber qua! sera 
a proxima minimelodia. 

Existem varias alternativas para a di- 
visao de uma miisica em seqiiencia prin- 
cipal e minimelodias. De um modo ge- 
ral, quanto menores as minimelodias, 
maior e a seqiiencia principal. Devemos 
buscar um equilibrio entre esses dois ele- 
mentos, a fim de evitar que minimelo- 
dias muito curtas exijam uma sequen- 
cia principal tao ionga que anule as van- 
tagens da compressao. 



DlVIOfNDO PARA VENCER 



A segunda tecnica de compressao e 
ainda mais eficiente. Ela parte do prin- 
cipio de que, embora os micros possam 
tocar um grande nilmero de notas — ge- 
ralmente 256 — , poucas deias sao de fa- 
to utilizadas durante a executjao de uma 
melodia. Assim, nao nos interessa — e 
nao ^ economico — empregar um siste- 
ma planejado para aceitar um grande 
niimero de notas. 

Cada posi(;ao de memdria em seu mi- 
crocomputador de oito bits e capaz de 
armazenar um niimero inteiro entre e 
255. Restringindo a quantidade de no- 
tas a serem armazenadas, sera possivel 
colocar duas deias em cada posigao — 
uma em cada quatro bits, Por exemplo, 
numero binario 10100010, de oito bits, 
pode ser interpretado como um so va- 
lor decimal — 162 — ou como dois va- 
lores — 10 (1010 em binirio) e 2 (0010 
em binario). 

Dividir por dois o espago disponivel 
diminui drasticamente o intervalo de va- 
lores que podemos armazenar: a 15. 
Contudo, muitas vezes isso e suficien- 
te, pois o niimero de notas diferentes em 



uma melodia simples raramente ultra- 
passa dezesseis. 

Para utilizar essa tecnica de compres- 
sao, prccisamos reduzir o numero de no- 
tas a quinze, deixando o 16? valor co- 
mo um c6digo de controle, Ja comen- 
tamos que, quanto mais comprimidos os 
dados, maior e o programa necessdrio 
para interpretd-los. Aqui, o programa 
deve decifrar cada nota abreviada que 
vai lendo nas linhas DATA, 

O usu^io, por sua vez, tera o traba- 
Iho de seiecionar as notas que serao usa- 
das na melodia, classificando-as em or- 
dem crescente, conforme a freqiiencia, 
a partir da nota mais baixa da primeira 
oitava — nesse caso, Gl. Em seguida, 
precisara calcular os numeros codifica- 
dos que aparecerao nas linhas DATA. 
Nossa melodia inclui doze notas: G, A, 
A#,B. C, D. D#,E. F, F#,G2eA2. 

Dtgite o terceiro programa e veja o 
sistema em apao. 



12 GOSUB 1000: LET T=.15r LET 
NT=130: LET rtS-170: LET MT= 

210; GOSUB 300 

90 STOP 
100 DATA 12,14,15,16,17,19,20, 
21,22,23,24,26,0,0,0,0 
ZOO DATA 1,2,1,2,3,2,1,2.4,5.1 
,2,0 

210 DATA 0,35.85,117.15,255 
220 DATA 168,117.67,31,255 
230 DATA 68,103,170,166,79,255 
240 DATA 85,154,187.169,255 
250 DATA 68,103,170,103,255 
310 RESTORE NT 
320 FOR N=23410 TO 23425 
330 HEAD X: POKE N,X: NEXT N 
345 LET NM-0 

350 RESTORE MS: LET HL=23426 
360 READ X 

365 IF X>NM THEN LET NM=X 
37Q IF X=0 THEN GOTO 400 
380 POKE HL,X: LET HL=HL+1 : 
GOTO 360 

400 POKE 9L,X: LET HL=HL+1 

401 LET X = HL: GOSITB 600 

402 POKE 23403, LSB 

403 POKE 23404. MSB 
4 30 RESTORE MT 
-140 FOR N=l TO NM 
450 READ X 

460 IF X=Z55 THEN GOTO 500 
470 POKE HL.X: LET HL=HL+1: 
GOTO 450 
500 POKE HL,X: LET HL=HL+1 

510 NEXT N 

511 RAND USR 23371 

512 POKE 23409,0 
530 LET X-USR 23296 

540 IF X=255 THEN RETURN 
550 SOUND T,X: GOTO 530 
600 LET MSB=INT CX/255) 
610 LET LSB=X- CMS8*256) : 
RETURN 



1000 RESTORE 2000: LET TO-0 : LE 

T L=2000 

1030 FOR N=23296 TO 23296+111 S 

TEP 8 

1040 FOR K=0 TO 7: READ A: LET 

TO=TO+A: POKE K+N,A: NEXT K 

1050 BEAD Ai IF AOTO THEN GOT 

O 1080 

1060 LET L=L+10: LET T0=0: NEXT 

N 
1065 RESTORE : RETURN 
1080 PRINT "ERRO DE DADOS NA LI 
NHA ';L: STOP 

2000 DATA 42,109.91,235,42,111. 
91,58,779 

2010 DATA 113,91,70,183,202,24, 
91,175,949 

2020 DATA 8,35,62,15,160,195,36 
.91.602 

2030 DATA 61,1,8,203,56,203.56. 
203,791 

2040 DATA 56,203.56,120,254,15. 
202,65,971 

2050 DATA 91,34,111,91,235.34,1 
09,91,796 

2060 DATA 8,50,113.91,33,114,91 
,22,522 

2070 DATA 0,8.95.25,126,6.0,79. 
339 

2080 DATA 201,26,19,183,194.81, 
91,1,796 

2090 DATA 255.0,201,17,130,91.1 
95,65.954 

2100 DATA 91,71.12,107,91,43.62 
,255,762 

2110 DATA 16,5,35.175,195,10,91 
,35,562 

2120 DATA 190,194,103.91.195,88 
,91,35,987 

2130 DATA 195.96,91,0.0,0,0,0,3 
82 
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10 SOUND 7, 56: SOUND 8,15 
2 SOUND 1,0 

23 DIM X(16) :RESTORE:FOR N-l TO 
16: READ X (NJ :NEXT 

25 C=0:T=100 

26 RESTOREIOOO 

27 F0RZ=1T0C+1 -HEADPiNEXT 

28 IFP=0THEN25 

29 RESTOBE1010:FOfiW=lTOP+2:READ 
WW: NEXT 

50 READN:SS=N 

60 N=INT(N/16) 

70 IFN-15TH£NC=C+1 :C0T026 

80 GOSUB130 

90 N=SS:N=15ANDN 

100 rFN=15THENC-C+l:G0T026 

110 GOSUB130 

120 GOT050 

130 SOUNDO,X(N+1) 

140 F0R2*1T0T:NEXT 

150 RETURN 

450 DATA 213.189.179,169.159,14 

2,134.126,119,112.106.94,0.0,0, 



1000 DATA 5.10,5,10.15,10 

1010 DATA S. 10, 20. 25, 5, 10.0 

1110 DATA 0,35,85,117,15 

1120 DATA 168,117.67,31,255 



Illlllll 



1130 DATA 68,103,170,186.79 
1140 DATA 85.154.187,169,255 
1150 DATA 68.103,170,103,255 



misi 



1 FOR I - TO 22: HEAD A:"POK 
E 600 + I, A: NEXT 

2 DATA 160,0.174.133,3,238,4 
8,192,136.208.5,206.132.3,240.6 
.202,208.245.76.34,3,96 

23 DIM XUe) : FOR N = 1 TO 16: 
READ X(N] : NEXT 

25 C - 0:T - 100 

26 RESTORE 

27 FOR Z * 1 TO C + 40: BEAD P 
; NEXT 

28 IF P » THEN 25 

29 RESTORE : FOR M - 1 TO P + 
47: BEAD WW: NEXT 

50 READ N:SS » N 

60 N = INT (N / 16) 

70 IF N = 15 THEN C = C + 1: G 

OTO 26 

80 GOSUB 13 

90 N = SS - N * 16 

100 IF N = 15 THEN C = C + 1: 

GOTO 26 

110 GOSUB 130 

120 GOTO 30 

130 POKE 900, T: POKE 901. XCN + 

1} 
140 CALL aOO: RETURN 
450 DATA 47,42.40,37.35,31.29 
,28,26.25.23.21,0,0.0.0 
lOOO DATA 5.10.5,10.15.10 
1010 DATA 5.10.20.25.5,10,0 
1110 DATA 0,35.85,117.15 
1120 DATA 168,117.67,31,255 
1130 DATA 68.103,170,186.79 
1140 DATA 85,154,187,169.255 
1150 DATA 68,103,170,103.255 

D 

10 DIM A(S.l) ,X(16) :FOR K-1 TO 

16:READ X (K) : NEXT : A (0 .0) -PEEK C5 

1) rA{0,l)-PEEK(52) 

15 FOR K-1 TO 13: READ P:MEXT:GO 

TO 30 

20 FOB K-1 TO 5: READ P : NEXT 

30 N-N+l :A(N,0)-PEEKC51) :A(N.l) 
-PEEK (52): IF N<5 THEN 20 

40 C-0:T-3 

50 POKE 51,A(0,0} :POKE 5Z,A(0.1 

):FOa N-1 TO C+lrREAD P:NEXT:IF 

P-0 THEN 40 
60 POKE 51.A(P,0) :POKE 52,ACP.l 
) 

65 READ N:S-N 
70 N-INT(N/16) 

75 IF N-15 THEN C-C+1:G0T0 50 
80 GOSUB 130 
90 N-S:N-15 AND N 
100 IF N-15 THEN C-C+1:G0T0 50 
110 GOSUB 130 
120 GOTO 65 

130 SOUND X(N+1] ,T: RETURN 
450 DATA 175.185,189,193,197.20 
4.207,210,213.216,218,223.0,0.0 
.0 

1000 DATA 1,2,1,2.3,2 
1010 DATA 1,2.4.5,1,2,0 



1110 DATA 0.35,85,117,15 

1120 DATA 168,117,67,31.255 

1130 DATA 68.103.170.186,79 

1140 DATA 85,154.187,169,255 

1150 DATA 68,103.170,103,255 

Os valores das freqiiencias dessas no- 
tas estao codificados na linha 450 (100 
no Spectrum). Essa linha deve conter de- 
zesseis valores. No MSX, poderiamos 
precisar de 32 valores para outras me- 
iodias, ji que ele requer dois parametros 
para um valor de nota. 

Em todas as versoes, codificamos so 
doze notas; assim, quatro espai;os sao 
preenchidos com 0. Os quatro digitos bi- 
nirios (chamados nybble) que formam 
cada nota das minimdodias estao codi- 
ficadas nas linhas 1000 e 1010 (200e210 
no Spectrum). Para entender como se 
calcuiam esses valores, tomemos como 
exemplo a minimelodia Tl , Veja os nii- 
meros da seqtiencia principal na linha 
450 (100 no Spectrum). Chamemos a 
primeira nota dessa linha de 0. a segun- 
da de 1 e assim por diame, ate a liltima 
nota, que seri 15. Se escrevermos a mi- 
nimelodia Tl com esses cddigos, tere- 
mos Tl = 0, 0. 2, 3, 5, 5, 7, 5, 0, 15. 
O numero 15, no caso, indlcao final da 
minimelodia, e nao uma nota. Cada um 
desses valores cabe em um nybble; as- 
sim, precisamos combind-los em pares 
para obter os bytes. 

O primeiro par de nybbles e e 0, va- 
lores que correspondem em binario, a 
0000 e 0000. Combinados em um byte, 
resultam no decimal 0. O primeiro va- 
lor da linha DATA 1 1 10 (210 no Spec- 
trum), que equivale a Tl , e, portanto, 0. 
O pr6ximo par 6 2 e 3 — em binirio, 
OOIO e OOn , Combinados, esses valores 
resultam em (K)10001 1, ou 35 em deci- 
mal. Este 6 o segundo valor da linha 
1 1 10 (ou 210). Procedendo dessa manei- 
ra com a minimelodia seguinte, teremos 
T2 ^ 10, 9. 7, 5, 4, 3, 1, 15. Combina- 
dos, OS valores I0e9— 1010 e 1001 em 
binirio — resultam 168 em decimal. Es- 
te ^ o primeiro valor de T2 na linha 1 120 
(220 no Spectrum). 

Utilizamos esse m^lodo para caJcu- 
lar OS valores correspondenies ks mini- 
melodias, armazenados nas linhas 1110 
a 1 150 (210 a 250 no Spectrum). Como 
no programa anterior, a seqiiSncia prin- 
cipal (linhas 1000 e 1010, ou 200 no 
Spectrum) aponta para as linhas DATA 
onde estao as minimelodias, na ordem 
em que devem ser tocadas. 



PROCESSO INVEHSO 



Outra parte Jmportante do programa 
t a que se encarrega de extrajr os nybbles 




MAIS MELODIAS 

Como exercfcio, rente codificar outras 
melodies, utiltzando o iiltimo programa 
deste artigo. Identifique as minimelo- 
dias e as sequSncias prlncipais, calcu- 
le OS valores correspondentes e colo- 
que-os em finhas DATA. Serd precise 
redefinir as matrizes — X( ) — da se- 
qijdncia principal para cada nova me- 
lodia, o que pode exigir a renumeraq:So 
do programs. 



dos numeros decimals lidos nas linhas 
DATA. O Spectrum faz isso colocando 
o valor em uma varidvei (linha 401) e 
chamando, em seguida, uma sub-rotina 
(linhas 600 e 610) que separa os dois 
nybbles do byte. Devidameme proces- 
sados, esses valores sao utilizados para 
emitir duas notas. 

Nos outros micros, as linhas 50 a 100 
cuidam da decodifica^to. Primeiro, o 
byte em exame, N, e armazenado na li- 
nha 50. A linha 60 extrai o nybble mais 
significativo e a linha 70 verifica o c6- 
digo de final de melodia. A iinha 80 cha- 
ma a sub-rotina que executa a nota cor- 
respondente e a linha 90 extrai o nybble 
menos significativo, usando a opera^ao 
16gica AND (menos no Apple e no 
TIC-2CIO0, cuja fun^ao AND nao permi- 
te o calculo de valores diferentes de e 
1). A nota e entao emitida. Note que o 
byte em exame e preservado, sem o que 
nao seria possivel recuperar o segundo 
nybble. 

Ao executar esse programa, os usua- 
rios do Spectrum observarao que os pro- 
blemas de andamento causados pela 
compressao j& nao ocorrem. O defeito 
era provocado por um tempo extra de 
processamento, necessarlo ao realinha- 
mento dos ponteiros, ou seja, ao uso de 
RESTORE. O programa reduziu esse 
tempo de processamento por meio de 
uma rotina em c6digo, armazenada nas 
linhas 1000 a 2130. Esta ^ a razao das 
diferencas de tamanho e numeragao en- 
tre o Spectrum e os demais micros. 

Para alterar a velocidade de execu- 
cio, altere o valor de T. Ele fica na li- 
nha 12, no Spectrum, e na linha 40, nos 
outros computadores. Observe, porem, 
que o intervalo de tempo entre o final 
de uma minimelodia e o im'cio da seguin- 
te toma-se mais acentuado a medida que 
T diminui. 
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AS CINCO VIOAS 
DE WILUE 



A morte vem para todos - mas nao tSo 
insistentemente como para Willie. 
Ele morre cinco vezes em cada jogo... 
e 6$t& sempre pronto a reiniciar 
a aventura na hora que voce quiser! 



Mesmo que voce seja um exi'mio jo- 
gador, mais cedo ou.mais tarde a morte 
levari Willie. Mas nao se afobe. Ele tern 
cinco vidas — nera tantas como um ga- 
to; bem mais, porem, do que os pobres 
mortals. Quando a fatalidade atingir 
Willie definitivamente, voce deverd 
enterrd-lo, imprimir o placar final e 
ajustar todas as vari^veis. 

Os sons emitidos pelo Spectrum sao 
muilo simples, acompanhando a execu- 
<;ao dos programas, O TRS-Coior pode 
produzir sons sofisticados. Mas, como 
para isso e necessdrio utilizar o proces- 
sador, nao se pode tocar um som e exe- 
cutar jogo simultaneamente. 



A rotina apresentada a seguir promo- 
ve a morte de Willie e verifica se ele po- 
de ser ressuscitado. 

10 REM OfQ 59652 

20 &EM die Id de.l96 

30 REM Id hi, 1086 

40 BEM call 949 

50 REM Id de.l31 

60 HEM Id hi. 1646 

70 HEM call 949 

60 REM dead Id hi, (57332) 



90 REM 


Id be. 15616 


« 

z: 


100 REH 


Id a. 45 


2, 


110 REM 


call 56217 


24 


120 REM 


Id de,32 


2! 


130 REM 


add hl.de 


2< 


140 REM 


Id C5733Z).hl 


2; 


160 REM 


Id be. 57000 


21 


160 REM 


Id a, 40 


2! 


170 REM 


Id de,256 


3( 


130 HEM 


call 58970 


3: 


190 REM 


Id de.30 


3: 


200 REM 


Id hi, 878 


3: 


210 REM 


Id a.r 


3' 
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NOTAS FUNEBRES 



DESCIDA PARA 



INFERNO 



PERDENDO VIDAS 



A ULTIMA MORTE 



DE WILLIE 



FUNERAL 



IMPRESSAO 



DO PLACAR 



SONS FINAIS 



k- 


« 


220 


El CM 


Id l,a 






230 


n£M 


call 949 






240 


REM 


Id hi, (57332) 




*■ 


250 


REM 


Id de.704 


< 




260 


n£M 


she hl.de 




» 


270 


REM 


jr cdead 






280 


REM 


Id 3,9 






290 


HEM 


Id (60005) ,a 






300 


REM 


Id a. (57343) 






310 


REM 


dec a 






320 


REM 


Id (57343) ,a 






330 


REM 


jp nz. 58606 




A 


340 


REM 


Id hi, 330 



350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 



REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



Id a, 142 

Id b,ll 
Id ix, 57992 
call me 
call 58939 
Id de,261 
Id hi, 1646 
call 949 
Id de.39Z 
Id hi, 1086 
call 949 
Id de,261 
Id hi, 1646 



480 REM call 949 

490 REM Id a,50 

500 REM Id (56732) ,a 

510 REM jp 58576 

Se Willie se alogou no mar, caiu num 
buraco, foi picado por uma cobra ou 
atingido por uma pedra, os sinos tocam, 
anunciando sua morte. Para que socm 
as duas badaladas funebres, a rotina 
BEEPER e chamada em 949 duas vezes 
— em cada uma delas, com parametros 
diferentes nos pares HL e DE. 




DESCIDA PARA IKFERNO 



Quando Willie morre, ele descc para 
o inferno, que se situa no fundo da te- 
la. Para criar esse efeito, come^amos 
por apagar sua cabeija — se nao o fizer- 
mos, teremos uma coluna de cabe?as 
descendo ate o fundo da tela! 

Assim, a posigao de Willie na tela — 
que aponta para a posifao de sua cabe- 
ga — e carregada da variavel em 57332 
e 57333 para o par HL. BC e carregado 
com o endere?o de um caractere limpo 
de ceu do topo da tela. A e ajustado pa- 
ra ciano sobre ciano. Finalmente, a ro- 
tina print em 58217 e chamada, apagan- 
do a cabega de Willie. 

O valor 32 e entao somado ao apon- 
tador de tela em HL, atraves do par DE, 
o que o faz se mover para a linha de bai- 
xo da tela. O resultado e colocado de 
volta em 57332 e 57333 para ajustar 
tamb^m a varidvel. 

BC e carregado com o enderego ini- 
ciai da figura de Willie com as pernas 
juntas. A e ajustado com o codigo da 
cor de Willie, azul sobre ciano. DE e 
carregado com 258, especificando um 
bloco de um por dois — o conteudo do 
registro D define a largura do bloco, e 
o conteudo do registro E, sua profun- 
didade: I x 256 + 2 = 258. A rotina de 
impressao de bloco em 58970, blk, e 
chamada, exibindo na tela a figura de 
Willie com as pernas juntas, uma posi- 
cao abaixo da que ele ocupava antes. 

Enquanto Willie desce, ouve-se uma 
miisica "celestial". Mais uma vez, os 
pares de registros HL e DE sao carre- 
gados com parametros que a rotina 
BEEPER utilizara, quando for chama- P ,; 
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da em 949. Desta vez, por^m, em vez de 
um som consiante, o programa precisa 
de um som intermitente. Para isso, 
carrega-se o conteiido do registrador R 
na parte menos significativa de HL, que 
6 o registro L. A operacao 6 realizada 
via acumulador porque nao existe ne- 
nhuma instrugao Id l,r. 

Usamos o registro R para manler a 
memoria dinamica. Este e um recurso 
do hardware com o qua! voce nao pre- 
cisa se preocupar. Para nossos fins, bas- 
ta saber que o valor desse registro e va- 
riivel. Assim, cada vez que esta parte da 
rolina for acessada iiA produzir um som 
difereme. 



SEIS PES DE PROFUNDIDADE 



A posi?ao da cabeca de Willie t car- 
regada da varidvel em 57332 e 57333 pa- 
ra o pai HL; 704 e carregado em DE e 
subtraido do conteiido de HL. O mime- 
ro 704 — 32 X 22 — indica o comedo 
da peniiltima linha. Como Willie tern 
dois caracteres de aJtura, essa subtra^ao 
coiocard o valor 1 na baliza carry ate 
que OS p^s de Willie tenham tocado o 
fundo da tela. 

Enquanto a baliza carry contiver 1 , 
a instru?ao jr c, dead manda o proces- 
sador de volta ao inicio da rotina de en- 



terro do personagem. Willie serd afun- 
dado mais uma posicao e os sinos vol- 
tarao a tocar — num torn diferente. 
Quando os p^s de Willie tocarem o in- 
ferno, ele estard completamente enter- 
rado. A baliza carry nao sera ajustada 
com 1 pela subtra?ao, nao haverd salto 
e o processador passard a executar a 
pr6xima irstru^ao. 

Tendo Willie chegado ao seu destino 
final, conv^m tocar uma can^ao confor- 
tadora. Assim, carrega-se A com 9 e a 
rotina sound em 60006 6 chamada. Ela 
executa uma versao curta da melodia 
inicial do jogo. Para obter maiores de- 
talhes sobre rotina da miisica, reveja o 
artigo da pagina 788. 

Como nosso personagem perdeu uma 
vida, precisamos reajustar — ou me- 
Ihor, decrementar — o numero de vidas. 
O valor dessa variavel 6 carregado de 
57343 para o acumulador, decrementa- 
do e recolocado em 57343. 

Se Willie ainda dispoe de alguma vi- 
da, a instru(;ao jp nz manda o proces- 
sador de voita ao programa de iniciaii- 
za^ao, em 58606. Caso contrario, con- 
tinua na rotina de nova partida. 



ACABARAM-SE AS VIDAS 



Quando Willie tiver morrido pela 
quinta vez, o jogo acaba. Precisamos, 
entao, imprimir a mensagem "GAME 
OVER!". Para isso, chamamos a roti- 
na de mensagens, ou me, em 58155. Co- 
mo sempre, os parametros dcvem ser co- 
locados nos registros HL, A, B e IX. 

A posigao de impressao i carregada 
em HL. A cor € ajustada em A. B car- 
rega o comprimento da mensagem e IX 
^ usado como apontador de dados. Os 
dados para a mensagem estao em 57892. 

A rotina que imprime o escore em 
58939 6 chamada para imprimir o pla- 
car. Em seguida, ouve-se o toque que 
marca o final do som no jogo. Para 
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produzi-Io, a rotina BEEPER i chama- 
da em 949 tres vezes, com valores dife- 
rentes em HL e DE a cada vez. 

Para reajustar o atraso inkial, 
carrega-se o acumulador com 50 e 
transferc-se o valor na posigao 58732, 
Esse endere<;o ainda nao foi menciona- 
do: eie pertence a rotina finaJ do jogo 
e d incumbido de controlar o atraso ge- 
ral. O processador salta para 58578, 
ajustando-o de manetra que voce possa 
dar reinkio i. aventura, se quiser. 



A rotina a seguir coloca Willie em seu 
tumulo: 

10 OBG 20560 
20 DIE LDA #136 




30 


LDX «140 


40 


JSR SOUND 


50 


LDA tl31 


60 


LDX #213 


70 


JSR SOUND 


80 


DI LDX 18249 


90 


LDU #1536 


100 


JSR CHARPR 


110 


LEAX 254, X 


120 


STX 18249 


130 


LDU #17774 


140 


JSR CHARPR 


150 


LEAX 254, X 


160 


JSR CHARPR 


170 


LDA #30 


180 


LDX #113 


190 


JSR SOUND 


200 


LDX 1S249 


210 


CMPX #6912 


220 


BLO DI 


230 


DEC 18239 


240 


LBNE NLV 



250 


PB LDA #5 


260 


PAA 


LDX 165535 


270 


LEAX -X,X 


280 


BNE 


PAA 


290 


DECA 


300 


BNE 


PB 


310 


JSR 


CLS 


320 


LOA 


$FF22 


330 


ANDA 115 


340 


STA 


SFF22 


350 


STA 


5FFC2 


360 


STA 


5FFC4 


3 70 


STA 


$FFC6 


380 


LDY 


• S50B 


390 


LDX 


#5701 


400 


STX 


.Y++ 


410 


LDX 


#3D05 


420 


STX 


,Y++ 


430 


LOX 


#3200F 


440 


STX 


.5f++ 


450 


LDX 


#$1605 


460 


STX 


.5r++ 


470 


LDX 


#31221 


480 


STX 


■ Y++ 


490 


LDA 


#200 


500 


LDX 


#255 


510 


JSR 


SOUND 


520 


LDA 


#200 


530 


LDX 


#200 


540 


JSR 


SOUND 


550 


LDA 


#255 


560 


LDX 


#255 


570 


JSR 


SOUND 


580 


LDA 


#100 


590 


STA 


DLL+1 


600 


LBRA GBIN 


610 


SOUND EQU 5S133 


620 


CHARPR EQU $4BCA 


630 


DLL 


EQU $51 ED 


640 


GBIN EQU 34BE2 


650 


NLV 


EQU S4BF7 


660 


CLS 


EQU 34ACC 



OS SINOS 



Quando a rotina come? a, ouve-se um 
sino bater duas vezes, A homenagem so- 
nora ao finado Willie, porem, e promo- 
vida pela rotina SOUND, que ser^ for- 
necida no pr6ximo artigo de Avalanche. 

Antes de testar o programa aqui 
apresentado, lembre-se de colocar um 
RTS no enderepo inicial de SOUND, 
S5 1 3 3 . CasD cont rario , haverd um erro . 

SOUND requer dois parametros que 
especifiquem o tipo e a dura<;ao do som. 
Eles sao utilizados pela rotina nos regis- 
tradores A e X. Como as duas notas 
produzidas diferem uma da outra, a ro- 
tina SOUND trabalha com parametros 
distintos a cada chamada. 



DESCENDO PARA INFERNO 



Willie descerd na tela em dircfao ao 
inferno. Sua figura anterior deve, assim, 
ser apagada. 

X e carregado com o conteiido de 



18249, que aponta para a posi^ao que 
o personagem ocupa na tela; U i carre- 
gado com 1536, o endere^o do ceu no 
topo da tela. Em seguida, a rotina 
CHARPR e chamada e im prime um 
bloco de c^u, apagando a metade supe- 
rior da figura de Willie. O conteiido de 
X e entao adicionado a 254 e recoloca- 
do em 18249, para que o apontador de 
Willie desija um caractere na tela. 

U i carregado com 17774, o endere- 
co inicial dos dados para a figura de 
Willie com as pernas juntas. Depois, o 
processador salta para a rotina 
CHARPR, que imprime a metade supe- 
rior de Willie uma posicjao abaixo da ul- 
tima impressao. Novamente, X e incre- 
mentado com 254 e CHARPR e chama- 
da para imprimir a metade inferior da 
figura. 

Enquanto Willie esta descendo na te- 
la, ouve-se um grito de agonia — para 
isso, A e X sao carregados de novo e o 
processador salta para SOUND. 

Willie deve chegar ao fundo da tela. 
Verificamos se isso jd ocorreu carregan- 
do X com conleudo de 18249 e com- 
parando esse valor com 6912, o inicio 
de 28? linha da tela. Se a posifao de Wil- 
lie em X for menor do que 6912, a ins- 
trufao BLO manda o processador rei- 
niciar o laijo DI e move Willie um ca- 
ractere para baixo. Caso contrario, o 
processador segue em f rente, pois Wil- 
lie chegou ao fundo da tela. 

O conteiido de 18249 — que arma- 
zena o niimero de vidas que restam a 
Willie — e entao decrementado e LBNE 
NLV manda o processador para a roti- 
na que da nova vida a Willie e traz de 
volta a ultima tela. Uma instru^ao de 
desvio longo e usada neste ponto, por- 
que a rotina NLV encontra-se numa 
parte bem anterior do programa — cer- 
tamente mais do que 128 bytes, o limite 
para um desvio curto. 



OUTRA PARTIDA 



Se o conteiido de 1 8249 foi reduzido 
a 0, Willie nao tem mais nenhuma vi- 
da, o jogo terminou e o processador exe- 
cuta a instrugao seguinte. 

A e carregado com 5; X e carregado 
com 65535 e, depois, decrementado. O 
processador fica nesse la? o ate que X se- 
ja 0. Em seguida, A i decrementado e 
X volta a ser carregado com 65535. O 
processo se repete ate que A tambem te- 
nha sido reduzido a 0. 

O processador fica nesse laco 5 x 
65535 vezes — pausa suficiente para que 
o jogador medite sobre o trdgico desti- 
no de Willie, Ao sair do la^o de atraso, 
o processador salta para a rotina CLS, 
que limpa a tela. 
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O t;onteudo de $FF22 e entao carre- 
gado em A, onde se executa a opera(;ao 
logica AND com o valor 15. O resuha- 
do e armaienado nas posigoes de mem6- 
ria $FF22, $FFC2, $FFC4 e $FFC6. 

Informamos, assim, ao VDG (gera- 
dor do sinal de video) e ao SAM (multi- 
plexador sincrono de endere^os) que es- 
tamos voliando ao modo texto. O pro- 
cedimento e o inverso do que utilizamos 
ao mudar para o modo grafico. 

Y e carregado com $50B, posigao on- 
de iremos imprimir a expressao "GA- 
ME OVER!". X, por sua vez, e carre- 
gado com $701, c6digos de tela para as 
lelras GA. Essas lelras sao colocadas na 
tela na posi^ao apontada por Y, que e 
incrementado duas vezes. 

Em seguida, X e carregado com os 
codigos de tela para ME e as duas letras 
sao impressas na nova posi<;ao aponta- 
da por Y, dois blocos a direita do im'cio 
de GA. For fim, os ultjmos caracteres 
— O, VE e R! — sao carregados e im- 
presses nas posigoes adequadas. 

Um som anuncia o fim do jogo. Co- 
mo esse som c formado por tres riotas, 
A e X sao carregados e a rotina SOUND 
e chamada ires vezes, 

O niimero 100 e carregado no acuiriula- 
dor e armazenado em $51EE. Com isso, 
ajustamo.s o atraso com o valor inicial. 
Quando o jogo for novamente executa- 



do, comegard com a mesma velocidade. 
Encerrando a execu(;ao da rotina, o 
processador faz um longo desvio para 
inicio do programa em GBIN, 



A rotina a seguir enterra Willie e ve- 
rifica se pode ser ressuscitado: 

10 oro !i!s334 

20 Id hi. (-6205) 

30 Id de, (62407) 

40 add hl,de 

50 inc hi 

60 Id a, 255 

70 puah hi 

80 call 77 

90 pop hi 
100 dec hi 
110 dec hi 
120 Id a, 255 
130 puah hi 
140 call 77 
150 pop hi 
160 Id de,32 
170 ddd hl,de 
180 Id a, 255 
190 puah hi 
200 call 77 
210 pop hi 
220 inc hi 
230 inc hi 
240 Id a, 255 
250 push hi 
260 call 77 



270 pop hi 

280 inc hi 

290 Id a, 255 

300 call 77 

310 mo Id hi. (-6205) 

320 push hi 

330 Id de, (62407) 

340 add hl.de 

350 Id a. 255 

360 call 77 

370 pop hi 

380 Id de.32 

390 add hl.de 

400 Id (-5205) ,hl 

410 Id de, (62407) 

420 add hi ,de 

430 id a,0 

440 push hi 

450 call 77 

460 pop hi 

470 Id de,32 

480 add hi ,de 

490 Id a,l 

500 call 77 

510 Id b,255 

520 atr Id a, 255 

530 dl dec a 

540 jr ni.dl 

550 djnz atr 

560 Id hi, (-5205) 

570 . Id de,704 

580 abc hi ,de 

590 jr cmo 

600 Id a. (-5221) 

610 dec a 

620 Id (-5221). a 



..<^C^ 
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630 


jp n2,538S8 


640 


Id de,234 


650 


Id a, 114 


660 


Id b,lZ 


670 


tt puah be 


680 


push de 


690 


push af 


700 


Id hi, (62407) 


710 


add hl.de 


720 


call 77 


730 


pop at 


740 


inc a 


750 


pap de 


760 


inc de 


770 


pop be 


780 


djnz tt 


790 


Id b.30 


800 


tu Id a. 255 


810 


du Id c,255 


820 


su dec c 


830 


jr nz , Bu 


840 


dec a 


650 


jr nz.du 


860 


djni tu 


870 


call 54023 


8B0 


Id a, 50 


890 


Id (54133) .a 


900 


jp 53855 


910 


end 



Essa rotina i executada quando nos- 
so personagem morre — depois de se 
afogar no mar, cair num buraco, ser pi- 
cado por uma cobra ou ser atingido e 
esmagado por uma pedra. 




APAGANDO OS VESTIGIOS 



Antes de mandar Willie para o infer- 
no, a rolina apaga seus vestigios na su- 
per ficie. Se ek foi atingido por uma pe- 
dra, esta tamb^m sera apagada, evitan- 
do a deforma^ao de figuras. Para isso, 
coloca-se o padrao do c^u, c6digo 255, 
em cinco posigoes ao redor de Willie. 
Examinando todas as situagoes de coli- 
sao, voce vera que essas sao as posigoes 
necessarias. 

O par HL e carregado com a posigao 
de Willie na tela, que estd no apontador 
em - 5205 e - 5204; DE e carregado 
com o endere(;o inicial da TN da VRAM 
e somado em HL, o apontador na im- 
pressao. Em seguida, a rotina 77 da 
ROM e chamada cinco vezes, com o va- 
lor dc HL apontando para cinco dife- 
rentes posigoes ao redor de Willie. 
Lembre-se de que a rotina 77 — utiliza- 
da no decorrer do jogo para imprimir 
um padrao na tela — coloca o valor 
de A no enderego da VRAM apontado 
por HL. 



DESCIDA PARA INFERNO 



Willie chega at^ o fundo da tela, em 
sua descida ao inferno. Para criar esse 
efeito, comegamos por apagar sua ca- 
bega — se nao o fizermos, veremos no 
video uma coluna de cabegas! 

A posigao de Willie, que aponta pa- 
ra a sua cabega, 6 carregada da varidvel 
em - 5205 e - 5204 para HL, par de re- 
gistros guardado na pilha. O enderego 
iniciaJ da TN na VRAM e carregado em 
DE e somado em HL. A rotina 77 colo- 
ca o padrao 255 nessa posigao, apagan- 
do a cabega de Willie, A posigao e re- 
cuperada da pilha para HL, sendo so- 
mada a 32 atraves de DE e colocada de 
volta em - 5205 e - 5204. Assim, Wil- 
lie afunda uma posigao na tela. 

Esse novo valor e somado com o en- 
derego inicial da TN na VRAM atraves 
de DE. O acumulador e carregado com 
0, cddigo do primeiro padrao da fi- 
gura de Willie com as pernas juntas. O 
apontador e colocado na pilha e a reti- 
na 77 e chamada. O apontador i recu- 
perado da pilha e somado com 32, mo- 
vendo-.se para a posi?ao de baixo. A e 
carregado com 1, o c6digo do segundo 
padrao da figura de Willie. Chama-se a 
rotina 77 e Willie desce uma posigao. 

Em seguida, B e A sao carregados 
com 255. O acumulador i decrementa- 
do ate no lago dl. Quando chega a es- 
se valor, o processador, por meio da ins- 
trugao djnz air, deCrementa B, reajusta 
A com 255 e repete o processo ate que 
B tambem seja 0. Esse lago e executado 



255 X 255 vezes e tern como tinico fim 
atrasar a descida de Willie, para que o 
jogador possa ve-la. 

A posigao de Willie e carregada da 
variiivel em -5205 e - 5204 para HL, 
onde e subtraida de 704 airaves de DE. 
Esse valor indica o comego da pen ulti- 
ma linha na tela. Como Willie tern dois 
caracteres de altura, a subtragao iri co- 
locar o valor 1 na baiiza carry at^ que 
seus p^s tenham tocado o fundo da te- 
la. Enquanto a baiiza tiver esse valor, 
a instrugao jr c,mo manda o processa- 
dor de volta ao ini'cio da rotina do en- 
terro, que afunda Willie mais uma po- 
sigao. Quando seus p^s tocarem o chao, 
ele estara completamenie enterrado; a 
baiiza carry nao tera mais o valor 1 e 
nao havera o salto. O processador pas- 
sa, entao, a executar a proxima ins- 
trugao. 

O niimero de vidas precisa ser reajus- 
tado — ou melhor, decrementado, pois 
o pobre Willie perdeu uma vida, O nii- 
mero de vidas e carregado no acumula- 
dor em - 522! , decrementado e recolo- 
cado no mesmo enderego, Se ainda res- 
tam vidas a WilUe, o processador salta 
para o programa de inicializagao, em 
53888. Caso contrario, continua na ro- 
tina dc nova partida. 



ACA8ARAM-SE AS VIDAS 



Quando Willie tiver consumido suas 
cinco vidas, o jogo acaba. Devemos, en- 
tao. imprimir "NOVA PARTIDA". 
com OS padroes previamente colocados 
na tabela de padroes da VRAM pela ro- 
tina fornecida no artigo da pagina 1001 . 

O par DE e carregado com 234, po- 
sigao da tela onde a primeira letra sera 
impressa. A contem o c6digo de padrao 
da primeira letra; B, o niimero de pa- 
droes (doze, incluindo o espago em 
branco). O lago tt ^ executado doze ve- 
zes, usando a rotina 77 para imprimir 
a mensagem no centro da tela. Note que 
este trabalho foi bem simplificado, por- 
quc OS padroes para a mensagem ja e.s- 
tavam na VRAM, em seqiiencia. 

Depois, o lago formado por tu, du e 
su e executado 30 x 255 x 255 vezes, pro- 
movendo o atraso necessario para a 
mensagem ser lida na tela. A rotina que 
imprime o escore em 54023 e chamada 
para imprimir o placar final. 

Para reajustar o atraso geral do jo- 
go, carregamos o acumulador com 50 e 
transferimos esse valor para 54133 — 
enderego que pertence a rotina final e 
controla a velocidade do jogo. 

O processador .salta para 53855, o ini'- 
cio da rotina principal, para que voce 
tente de novo, se quiser. 
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A linguagem BASIC tem excelentes 
recursos para programa^ao com variA- 
veis literais (alfanumericas). Diversas 
funcoes de manipula^ao de cadeias de 
caracteres (siring) garantem a essa lin- 
guagem uma grande versatilidade. Va- 
mos relembrar, resumidamente, o que 
faz cada uma dessas fungoes. 
FuB^ws gems 

LEN(X$) ■ Retorna o comprimento 

da cadeia X$ (um niime- 
ro inteiro entre e 255). 
Existe para todas as ver- 
soes de BASIC. Nos mi- 
crocomputadoresZX-Sl e 
Spectrum nao e necessa- 
rio colocar X$ entre pa- 
r§nteses. 

ASC{X$) - Retorna o codigo ASCII 

(um niimero inteiro entre 
e 255) do primeiro ca- 
ractere da cadeia XS. No 
micro Sinclair ZX-8] de- 
nomina-se CODE. 

CHRWX) - Tem a fun(;ao inversa de 

ASC, ou seja, retorna o 
caractere correspondente 
ao codigo ASCII indica- 
do pela variavel X. 

STRINGS(X,Y) - Retorna uma cadeia com 
X caracteres iguais, com 
codigo ASCII estipulado 
por Y. Nao existe para os 
microcomputadores das 
linhas Apple. Sinclair 
ZX-81 e Spectrum. 

Fun^oes'de subcadeias 
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LEFTS (XS,N) -Extrai os N primeiros ca- 
racteres da cadeia XS. 

RIGHTS {X$,N)-Extrai os N liltimos carac- 
teres da cadeta XS. 

MIDS (X$,N,L) -Extrai L caracteres a par- 
tir da posigio N da cadeia 
XS, Pode ser utilizado 
tambem no formato 
MID$(X$,N), extraindo 
ent§o todos os caracteres 
que existirem na cadeia 
X$, a partir da posi?ao N. 



A programa^ao dos blocos bSsicos de 
um processador de textos em BASIC 
nao 6 dKicil. Aprenda aqui a remover 
espacos em branco e a converter 
maiusculas em miniisculas e vice-versa. 



Nos micros da linha Sinclair — 
ZX-81 e Spectrum — nao sao necessi- 
rias f undoes especiais para tratamento 
de subcadeias. Damos, abaixo, a equi- 
valSncia entre a referenda padronizada 
a subcadeias na linha Sinclair e as fun- 
toes anteriores mencionadas. 

X$(l TO N) ** LEFT$(XS,N) 

XS(LEN XS-N TO + 1) ** R1GHT$(X$,N) 
XS(N TO N +L-1) « MIDS(X$,N,L) 
X$(N TO) « MID$(X$,N) 



nao ocorre erro; o valor que se 
retorna e igualado a 0. 
Nem todas as versoes do BASIC di- 
poem do conjunto completo de fum^oes 
string, Alem disso, faltam certas fun- 
<;6es, necessarias para a programa^ao 
avangada com cadeias (sobretudo em 
processamento de textos): 
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INSTR (XS,Y$) - A funqao inslring retorna 
a posi^iao em que se esta 
o caractere Y$ (ou o pri- 
meiro caractere da cadeia 
Y$), dentro da cadeia XS, 
Essa fungao pode ser simulada nos 
computadores onde nao exisie, por meio 
de um lafo de repeti^ao em que cada ca- 
ractere em X$ € extraido, sucessivamen- 
te, sendo comparado com YS. Isso po- 
de ser feito com a funcao MID$(X$,I,1), 
onde 1 e o indicador do la(;o. 

Fungoes de conversao 



• eliminagao de espapos em branco no 
comedo ou no fim de uma cadeia; 

• conversao de miniisculas para maius- 
culas e vice- versa; 

• extra(;ao de palavras de uma frase. 

Neste artjgo, examinaremos como re- 
solver alguns dos probfemas menciona- 
dos actma por meio de pequenas sub-ro- 
tinas, que podem ser acrescentadas a 
quaiquer programa. 



REMOpAO DE ESPApOS 



Para muitas aplicagoes de processa- 
mento de cadeias, e precise remover an- 
tes OS espa?os em branco existentes no 
comedo ou no final de um string. A sub- 
rotina que apresentamos a seguir mos- 
tra como remover brancos a direita. Ne- 
la, a varidvel AS contem a cadeia que 
deve ser processada, e B$, o resuttado 
da rotina: 
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Niimeros podem ser representados 
na forma de uma cadeia de digitos, 
mais OS sinais de ponto (.), mais (-I-), 
menos (-), e as letras E ou D (notacao 
cientifica em precisao simples ou dupla, 
respectivamente. Esta ultima s6 existe 
nos micros das linhas TRS-80, TRS- 
Color e MSX). Para efetuar a conver- 
sao da representa<;ao num^rica para ca- 
deia, ou vice-versa, existem duas fun- 
^oes especiais em ASCII: 

STRS(X) - Retorna a cadeia corresponden- 
te ao niimero X. Um espaifo em 
branco e adicionado ao inicio da 
cadeia. 

VAL (XS) - Efetua a opera^ao inversa, ou 
seja, retorna o valor numerico 
correspondente a cadeia XS. Se 
X$ nao contiver um niimero, 



1000 FOR I=LEN(AS) TO 1 STEP -1 

1010 IF MIDS(AS,I.1)<>" " THEN 

1030 

1020 NEXT I 

1030 B$-LEFT5(AS.I1 :RETURN 



1000 FOR I*LEN AS TO 1 STEP -1 

10X0 IF AS (I TO I)<>" " THEN 

GOTO 1030 

1020 NEXT I 

1030 LET BS-A3{T0 I) 

1040 RETURN 

Para testar a rotina, acrescente este 
pequeno programa: 

ssaDf>^[i][^ 

10 PRINT 'ENTRE A CADEIA "; 
20 INPUT AS 



lOGRAMACAOBASi 



MANIPULACAO DE 



CADEIAS DE C ARACTERES 

CONJUNTO DE FUNCOES STRING 

NOVAS ROTINAS 



DE PROCESSAMENTO DE TEXTOS 



ELIMINACAO DE 



ESPACOS EM BRANCO 
CONVERSAO PARA 



MAIUSCULAS 



CONVERSAO PARA MINUSCULAS 



30 GOSUB 1000 
40 PRINT BS 
50 GOTO 10 

A linha 1000 da sub-rotina percorre 
a cadeia de caracteres do fim ao come- 
CO, recuando urn caractere por vez. A 
linha lOIOverificaseo caractere dumes- 
pa^o em branco. Enquanto for. o la?o 
se repete. A ocorrencia do primeiro ca- 
ractere nao branco causa a interrupgao 
do !ago e a extra<;ao dos I caracteres a 
esquerda (linha 1030), 

Ao testar o programa nos micros das 
ynhasTRS-80, TRS-Color. MSX, Apple 
ou TK-2000, nao se esquega de digitar 
a cadeia entre aspas, pois, normalmen- 
te, comando INPUT jd realiza a fun- 
*;ao de retirar os espat^os^ colocados k di- 
reita da mesma. 

Nas versoes do BASIC que permitem 
fungoes programadas (DEF FN), a re- 
tina anterior pode ser substituida por al- 
go bem mass compacto: 

5 DEF FNTBS (AS) -LEFTS (A$,rNSTRC 
AS+- -," -)-l) 

Para fazer um teste, troque a linha 
30 do programa de verificafao por: 

30 B$-fNTB${AS) 

Observe que a funpao sd opera cor- 
retamente se nao houver mais do que 
um espago era branco entre as palavras 
de uma cadeia. 

Para remover os espa^os em branco 
a esquerda podemos usar a seguinte 
versao da rotina anterior: 

aEi[l][^r^ 

1200 FOR I-l TO LEN(A$) 

1210 IF MIDS(AS,I,1)<>" ' THEN 

1230 

1220 NEXT I 

1230 BS=«IDS CAS. IJ : RETURN 



1200 FOR 1=1 TO LEN AS 

1210 IF AS (I TO DO- * THEN 

GOTO 1230 

1220 NEXT I 

1230 LET B$-AS(I TO) 

1240 HETURN 

Para testar a rotina, substitua a li- 
nha 30 do programa de verifica^ao por 
GOSUB 1200. 



Note que apenas a primeira e a ulti- 
ma linhas da sub-rotina sao diferentes, 
pois i necessdno percorrer a cadeia do 
primeiro ao ultimo caractere, ate en- 
contrar o primeiro nao branco. Feito is- 
so, eliminam-se todos os caracteres a 
direita. 



MINUSCULAS E MAIUSCULAS 



Outro recurso dtil 6 a conversao de 
todas as letras miniisculas de uma cadeia 
em maiusculas, ou vice-versa. Lembre- 
se de que o cddigo ASCII de uma letra 
miniiscula i igual ao c6digo da maius- 
cula correpondente, mais o valor 32. O 
cbdigo de A, por exemplo, ^ 65, e o de 
a, 97. Portanto, para converter maius- 
culas em minusculas, precisamos apenas 
somar 32 ao c6digo das letras — quan- 
do o c6digo ASCII for menor do que 65, 
que e a lelra A, ou maior do que 90, que 
e a letra Z, o caractere nao deve ser con- 
vertido. 

DDSlE^r^ 

1300 B5="" 

1305 FOR 1=1 TO LEN CAS) 

1310 C=ASCCMlD$(AS.r.l) ) 

1320 IF 064 AND C<91 THEN 

C=C+32 

1330 BS-BS+CHR$(C} 

1340 NEXT I: HETURN 



1300 LET bS^'" 

1305 FOR 1=1 TO LEN aO 

1310 LET c-ASC a$(i TO i) 

1320 IF c>64 AND cOl THEN LET 

c-c+32 

1330 LET bS=bS+CHR3 c 

1340 NEXT 1 

1350 RETURN 

Nao apresentamos uma versao para 
OS compativeis com o ZX-81, pois estes 
nao tern letras minusculas. 

Para testar a rotina acima, substitua 
a linha 30 de nosso programa de verifi- 
cagao por GOSUB 1300. 

O funclonamento da rotina e simples: 
o la?o que vai de 1305 a 1340 percorre 
a cadeia de entrada, lomando um carac- 
tere de cada vez, na linha 1310. Se o seu 
codigo estiver entre 65 e 90, trata-se de 




Como uma cadeia 6 armazenada ns 
memdria do computador? 

A cadeia ^ uma estfutura de dados 
multo util, pois nao exige um espa^o 
fixo para armazenagem de cada variS- 
vel literal, como acontece com as va- 
rlSvels num^ricas, Uma varl^vel de pre- 
clsao simples sempre ocupa qustro 
bytes na mem6rja; uma variavel de pre- 
clsao dupla (quinze decimals) ocupa 
sets bytes e assim por diante. 

Manter esse esquema de alocapao 
fixa de espapo na memdria para as ca- 
deras levarla a um grande desperdi'cio, 
pois o comprimento das cadeias usa- 
das em um programa pode variar mul- 
to. Assim, o interpretador BASIC colo- 
ca todas as cadeias em um iinico es- 
paqo, reservado para esse fim. 

Para saber onde comega e scaba ca- 
da cadeia, o interpretador mant6m 
duas outras estruturas de dados: uma 
s^rle de apontadores Indica as loca^oes 
de mem6fia onde comepam as cadeias. 
No byte da cadeia esti indlcado o seu 
comprimento, em bytes. £ por isso que 
o comprimento mdxtmo de uma cadeia, 
no dialeto Microsoft BASIC, § 255 (o 
maior numero decimal representSvet 
em oito bits). 



uma letra maiuscula; portanto, devemos 
somar 32 ao mesmo, A linha 130 con- 
catena o novo caractere a cadeia de saida. 
Para converter minusculas em maius- 
culas basta alterar apenas uma linha da 
rotina: 

sEiar^aii^ 

1320 IF C>96 AND C<123 THEN 
C-C-32 

A rotina verifica se o c6digo ASCII 
do caractere esta compreendido entre 97 
e 122 (letras a a z, minusculas). Se esti- 
ver, simplesmente subtrai 32 dessec6- 
digo. 



Hill 
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TRSCXDLORzUM 
EDnOR DE DISCX>S 



Com programa apresentado neste 
artigo, os usuirios do TRS-Color terao 
acesso direto i informa^io contida 
nos disquetes, podendo alter^-la ou 
recuperd-la em caso de acidente. 
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■ ACESSO DIRETO 


■ 
■ 


PROGRAMA 
LEITURA 




■ LEITURA E GRAVACAO 




■ FORMATO DO DISCO 


■ 


DE UM SETOR 
EXECUTANDO 




■ diretOrio 




■ -COMOUTILIZAR 




AS ALTERACOES 


^^ 





A tarefa de gravar e ler arquivos em 
um disquete e gerenciada pelo sistema 
operacional de disco (DOS). Em geral, 

o mode como se organiza a informapao 
no disco ou como se di a transferencia 
de dados nao constitui problema para 
o usudrio — o DOS cuida de tudo, 
transformando a unidade de disquete 
em uma extensao do computador. 

No entanto, podemos acessar partes 
individualizadas do disco, manipulando 
e alterando diretamente a informapao 
neie contida. Este e um recurso ofereci- 
do pelo DOS que abre inumeras possi- 
bilidades de aplica^ao. Permite, por 
exempio, que se alterem itens de um di- 
ret6rio e nomes ou dados de arquivos. 
Sua aplicacao mais interessante talvez 
seja a recupera(;ao de informatoes: com 
o acesso direto voce pode, entre outras 
coisas, recuperar arquivos que foram 
apagados, fechar arquivos ou restabe- 
lecer apontadores, corrigindo o enca- 
deamento dos setores que compoem um 
arquivo em particular. 

O acesso direto a biocos individuais 
de informa9ao em um disco funciona de 
modo semelhante a um monitor desli- 
nado a examinar a memdria do micro. 

A operafao do monitor de disco (ou 
editor de disco) e viabilizada, basica- 
mente, pela armazenagem temporaria, 
em uma parte da memSria, da informa- 
9ao lida do disco ou a ser gravada. En- 
quanto esta na mem6ria, a inrorma9ao 
pode ser alterada k vontade, sendo, em 
seguida, substituida no disco. 



A 6E0GRARA 00 DISCO 



Algum conhecimento sobre a distri- 
bui^ao dos dados no disco € fundamen- 
tal para a manipulacao do bloco de in- 
formacoes em uma trilha ou setor deter- 
minado. O diagrama, normalmentc re- 
ferido como formato do disco, e defi- 
nido pelas rotinas de formatagao do 
DOS. 

Usa-se a nota^ao em hexadecimal em 
tod as as referencias sobre acesso direto 
ao disco — por isso, nossas referencias 
tambim adotarao essa nota^ao. Como 
nao empregaremos a notagao decimal 
em nosso programa, serd litil ter uma la- 
bela de conversao de decimais para hex 
e outra de hex para ASCII. 



TRILHAS E SETORES 



Para utilizar nosso programa-editor, 
voce deverd ter um mapa do formato do 
disco. Veremos aqui seus aspectos mais 
relevantes; outros detalhes serao encon- 
trados no manual do DOS. 

Se voce vai trabalhar com um disco 
que reune dados importantes, recomen- 
damos que fapa uma c6pia dele. Qual- 
quer erro cometido ao usar este progra- 
ma podera danificar toda a informafao 
neie armanezada. 

O TRS-Color tern uma interface es- 
pecial que cont^m o sistema operacio- 
nal. Este nao precisa, assim, estar gra- 
vado no disco para ser lido quando se 
liga computador — como ocorre com 
a maioria dos micros. 

O disco divjde-se em 34 trilhas, cada 
uma com dezoito setores de 338 bytes, 
Destes, apenas 256 sao usados para ar- 
mazenamento de dados; os 82 restames 
sao utilizados para controle do sistema 
operacional. 

O dlretdrio, que controla os arquivos 
do disco, fica armazenado na trilha 17. 
Ele pode ser acessado por meio do co- 
mando DIR, que mostra todos os arqui- 
vos, discriminando seu tipo e tambem 
niimero de biocos empregados. Veja- 
mos como est& dividida a trilha 17, a 
partir do setor 3: 

Byte Cotiteudo 

0-7 Nome do arquivo. Ocupando 
um numero de bytes menor que 
oito, e preenchido por espa?os 
em branco. Byte igual a in- 
dica arquivo apagado. Byte 
igual a FF significa que este e 
OS pr6ximos itens do diretdrio 
ainda nao foram usados. 

8-10 ExtensSo do nome do arquivo. 

11 Tipo de arquivo: 

programa BASIC; 

1 arquivo de dados BASIC; 

2 programa em linguagem de 
m^quina; 

3 arquivo de texto. 

12 00 arquivo em formato bindrio. 
FF arquivo em formato ASCII. 
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13 Numero do primeiro bloco do 
arquivo (0-67), 

14-15 Numero-de bytes em uso no ul- 
timo setor do arquivo, 

16-31 Sem uso. 

Para distribuir os arqiiivos no disco, 
o compulador usa como referfincia blo- 
cos, que nada mais sao que metade de 
uma trilha. Assim, o bloco sera com- 
posto pelos set ores 1 a 9 da trilha 0; o 
bloco 1, pelos setores 10 a 18 da trilha 
0; o bloco 2, pelos setores 1 a 9 da tri- 
lha 1 e assim por diante, ate a trilha 16, 
A trilha 17 — que contem o diretorio — 
nao e le%'ada em considera<;ao. mas a di- 
visao recomega a partir da trilha 18 — 
onde OS setores I a 9 compoem o bloco 
34 — e, com isso, prossegue ate o fim 

do disco... 

A identificatao dos blocos Uvres pa- 
ra uso e feita por meio do setor 2 da tri- 
lha 17. Os primeiros 68 bytes desse se- 
tor representam os blocos de a 67, 
Quando determinado byte contem o va- 
lor FF, o bloco est^ livre. Urn valor de 
00 a 43 indica sua ocupacao por urn ar- 
quivo cuja referencia e dada pelo niimc- 
ro decimal obttdo apos a conversao do 
valor. Urn valor de CO a C9 indica que 
o bloco em questao e o linico ou o ulti- 
mo do arquivo; o segundo digho espe- 
cifica o ntimero de setores que estao 
ocupados no bloco. 

Essas informacoes s3o importantes, 
especialmente quando se trata de recu- 
perar arquivos apagados por engano — 
tarefa, alias, nada facil, mas que pode 
ter bons resuliadcs se realizada com urn 
pouco de paciencia. 

No caso da recuperagao de um arqui- 
vo pequeho, que nao ocupa mais de um 
bloco, o trabalho h mais simples. Em 
primeiro lugar, voce deve localizar o 
programa desejado no diretorio. Para 
restaurar seu nome inicial, substitua o 
00 da primeira posipao pela letra ade- 
quada. Depois procure o 13? byte do 
item (o terceiro apos a ultima letra da 
extensao do nome do arquivo). Trans- 
forme seu valor hexadecimal em deci- 
mal, para identificar o bloco usado pe- 
lo seu programa. Em seguida, grave es- 
sa informafao no setor e carregue o se- 
tor 2 da trilha 17. Procure pelo byte cor- 
respondente ao bloco (lembre-se de que 
a contagem come^a no 0). Ele deve ter 
o valor FF. Substitua esse valor por C9 
e grave no setor. Saia do programa- 
editor, carregue o seu programa na me- 
moria e volte a grava-lo, para que to- 
dos os apontadores sejam atualizados. 



Pronto, seu programa estS totalmente 
recuperado! 

Quando o programa que voce quer 
recuperar e maior, a opera^ao torna-se 
compHcada, pois o DOS passa para FF 
o valor de todos os blocos usados pelo 
programa que foi apagado. Assim, co- 
me^amos o trabalho conhecendo apenas 
primeiro bloco, Os demais tern que ser 



procurados no disco, setor por setor. O 
programa so podera ser carregado na 
mem6ria do computador quando tiver- 
mos montado a seqiiencia correta de 
blocos. Inicie a busca pelos blocos vizi- 
nhos do inicial e va se afastando at6 ter 
localizado todos eles. E um trabalho ar- 
duo, mas, certamente, havera casos em 
que valera a pena. 



II 
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21 
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10 CLEAR 5000:DIM AS (!) ,D$ ( 1) , D 

£160) :CS-""'+CHRSC10)+CHB$ (8)+C 

BRS(9)-t-"AH'' + CHR$(i3)+'' ■■:D-1 

15 TPSCOJ^'BAS" :TPS (1) ="OAD" : TP 

St2)-"LMA' rTPS (3) =-TXT" 

20 CLS: PRINT 613. "menu" 

30 PRINT #105,"cABREGAR SETOB" : 

PRINT #169. "vEH/EDITAR SETOR" r P 

RINT «233,"3ALUAR SETOR": PRINT 

§297,"dIHETORIO" 



40 R3-1NKE¥S:IF RS="" THEN 40 
50 H-INSTH("CVSD''.RS) :1F R-P TH 
EN 40 
60 IF SL-0 AND [n*2 OH R="3)THEN 

PRINT: PRINT"NENHUM SETOR CAERE 
GADO":FOH K-1 TO 2000 :NEXT:GOTO 

20 
70 Cl.S:ON R GOSUB 1000.2000,300 
0,4000 
80 GOTO 20 




218 U$-CHRS(VAL("tB"+H$) ) ;P=H+y 
«11+X 

1000 SL>1:G0SUB 5000 

1010 DSKI$ D,T,S,AS(0) ,AS{1) 

1020 RETURN 

2000 F-l:H-l:CLS:PRlNT"aSCII OU 
hEX ?" 

2010 HS-INKEY$iIF RSO-A" AND R 

5<>"H' THEN 2010 

2020 A2-0:IF RS-"A" THEN AZ=1 

2030 IF F-0 THEN 2050 

2040 PK-96:CP-1535:IF AZ'l GOSU 

B 2320 ELSE GOSUB 2280 

2050 POKE CP,PK:CP-1024+Y*32+X* 

3:PK-PEEK{CP) :POKE CP,239 

2060 PRINT 6321, "BYTE SUPERIOR^ 

";H 

2070 B$-INKEy$:IF RS-'" THEN 20 

70 

2O80 R-INSTR(C$.RS) ;IF R"0 THEN 
2070 

2090 F-0:ON R GOTO 2100,2110.21 

20.2130,2140,2150.2160.2170 

2100 Y-Y-1:G0T0 2210 

2110 Y=Y+1:G0T0 2210 

2120 ){-X-l:GOTO 2210 

2130 X-X+1:G0T0 2210 

2140 A2=1:G0T0 2040 

2150 A2-0rGOTO 2040 

2160 RETURN 

2170 PRINT €384, "NOVO CONTEUDO 

(HEX) " ; : INPUT H$ 

2180 US = CHRS{VAL(-».H''+H$)) :P-H+ 
Y*ll+X 

2190 MID5(A$(P/128) .P+128*{P>12 

8},1>-VS 

2200 F=1:G0T0 2030 

2210 IF yCO THEN e-H-44 : ¥-0: F"l 

2220 IF Y>7 THEN H=H+44 : y-7 : F-1 

2230 IF X<0 THEN X=10 : Y-Y^l : IF 

¥<0 THEN H-H-11 :y-OrF-l 

2240 IF X>10 THEN X-0 ; Y-Y+l ; IF 

Y>7 THEN y=7;H-H+ll;F-l 

2250 IF H- 10 OR fJ--43 THEN H-1 

:F=0:ELSE IF H<1 THEN H=1:F=1 
2260 IF H=179 OR H=212 THEN H-1 
68:F-0 ELSE IF H>168 THEN H-168 

■F-1 

2270 GOTO 2030 

2280 CLS;F0R J'H TO H+87 STEP 1 

1:F0R TT-0 TO 10 

2290 PRINT RIGHTS { "O'+HEXS (ASC( 

MIDS (AS t J/128) , J+TT+128* ( ( J+TT} 

>128))) ) ,2) ;" "i 

2300 NEXT:PHINT CHRS (8) ; : NEXT 

2310 RETURN 

2320 CLSiFOH J-H TO H+87 STEP 1 

1:F0R TT=0 TO 10 

2330 G-ASC(MIDS(AS(J/12e) ,J+TT+ 

128* ( (J+TT) >128) )) rIF G<32 THEN 

2350 
2340 PRINT " "iCHHStG);" " ; : GOT 
2360 
2350 PRINT LEFTS ("0"+HEXS(G) ,2) 

2360 NEXT:PRINT CHHS (8) ; :NEXT :R 
ETURN 

3000 CLS: PR I NT "SAL WAR NO MESMO 
SETOR (S/N) ?" 

3010 RS-INKEYS:IF HS<>"S" AND R 
3<>"N" THEN 3010 
3020 IF RS-"S' THEN 3040 
030 CLS:GOSUB 5000 



3040 PRINT :PRrNT"VOCE TEM CEHTE 

ZA ES/N) ?'■ 

3050 RS=1NKEVS:IF RSO'S" AND B 

$C>"N" THEN 3050 

3060 IF RS="N" THEN RETURN 

DSKOS D,T,S,AS(0) ,A$(1) 

RETURN 

GOSUB 5050 

PRINT iPR,TABC14) ;"INICIO 



3070 

3080 

4000 

4010 

NO." 

4020 

IPO 

4030 



tPR,' 



NOME 



EXT T 



PRINT 
DEL" 

FOB J-0 TO 8:DSKI$ D,17,J+ 
3.DSC0) ,DS(1) 

4040 FOR K-1 TO 256 STEP 32 
4050 GOSUB 6800 

4060 IF ASG(VS)-255 THEN K-256: 
J=8:G0T0 4120 

4065 IF ASC(V$)=0 THEN MIDS (VS , 
l.l)-" ";Dt'-l 

4070 PRINT *PR,MIDS(U$.1.8) :TAB 
C9) :".";MIDS tVS.9,3) ; 
4080 TP=VAL{mD$ tVS-11.1) ) 
4100 PRINT #PH.TAB(15) ;TPS(TP) ; 
TAB(20) CHRS (42*DT) 
4110 DT-0 

4120 NEXT K,JtH$-INKEY3:IF PR-- 
2 THEN 4140 

4230 aS-INKEY$:IF fiS-"" THEN 41 
30 

4140 RETURN 

5OO0 INPUT'NUMERO DA TBILHA (0- 
34) ";T 

5010 INPUT'NUHERO DO SETOR (1-1 
8) ^ ■ S 

502o'lNPUT"NUMERO DO DRIVE (0-3 
) -;D 

5030 IF D>3 OR D<0 OR T>34 OR T 
<0 OR S>18 OH S<1 THEN 5000 
5040 RETURN 
505D PR»0:IF(PEEKU50))<>1 THEN 

RETURN 
5O60 PRINT" SAIDA PAHA A IMPRESS 
ORA <S/N)?" 

5070 HS-rNKEY$:IF BSO'S" AND R 
SO'N" THEN 5070 
5O80 IF BS^'S" THEN PR--2 
5090 RETURN 

6000 yS=MID${DS(K/128) ,K+128*(K 
>12a) ,32) .IF LEN(VS)<32 THEN V$ 
-U$-t-MIDS(DSCl+K/12e) ,1,32-LEN{V 

S>) 

6010 RETURN 
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COMO USAR PROGRAMA 



Carregue o programa na memoria e 
escoiha o disco no qual voce vai traba- 
Ihar. Enquanto esta aprendendo, con- 
vem utilizar um disquete que nao con- 
tenha dados importantes. 

Digitando RUN, voce tera quatro op- 
^oes: Carregar setor {C), Ver/editar se- 
tor (V), Salvarsetor (S), Diretorio (D). 
Pressione D para obter uma listagem de- 
taihada dos arquivos do disco, incluin- 
do OS que foram apagados anteriormen- 
te. Estes estarao marcados com um as- 
terisco na coluna DEL. Lembre-se de 
que a inclusao do nome de um arquivo 



no diretorio nao garante que ele esteja 
disponivel no disco — os blocos usados 
por ele podem ter sido reutilizados por 
um outro arquivo. Se voce tern uma im- 
pressora conectada ao Micro, digite PO- 
KE 150,1 antes de executar o programa: 
a opgao de imprimir o diretorio Ihe se- 
ra oferecida. 

Em seguida, digite a tecla C para car- 
regar um setor. Tente primeiro o dire- 
torio, pedindo a trilha 17, setor 3. Digi- 
te V para visualizar os dados. Pressio- 
nando A ou H, voce poderd obter, a 
qualquer momento, os dados no forma- 
to ASCII ou hexadecimal. O primeiro 
e mais conveniente para a identifica- 



gao de nomes de arquivos e linhas BA- 
SIC. O segundo deve ser usado quando 
se quer encontrar os valores hexadeci- 
mais de um deierminado byte. 

As setas movem o cursor para o pon- 
to que se desejar. Para alterar um va- 
lor, pressione a barra de espagos e fof- 
ne<;a o novo byte, sempre em hexadeci- 
mal. Note que apenas uma parte do se- 
tor e exibida. A medida que se movi- 
menta o cursor para baixo, a tela vai ro- 
lando e mostiando o que resta, 

Ao terminar a edi^ao de um setor, 
pode-se grava-lo usando a opfao S do 
menu. Entre as inforraag5es solicitadas 
pelo programa... e promo! 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IIIIIIIIIIHHNO PROXIMO NUMEROHIHIIIIIII 



PROGRAMAQAO BASIC 

O que e recursao? A m^quina inteligente. Procedimentos 
recursivos. Limitagoes. Como evitar erros. 

c6digo de mAquina 

Niveis de dificuldade em Avalanche. Aceleragao do jogo. 
Contagem de pontos. Exibigao do placar. De volta ao sop6. 

programaqAo de jogos 

Poquer com dados; as regras do jogo, estrat6gia, 
UDG dos dados, rolando os dados, o placar. 




